home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / illu / ibrowsep.lha / Command-01-T01 < prev    next >
Text File  |  1995-08-12  |  1KB  |  33 lines
  1. ; ---
  2.  
  3.  
  4. if exists uuspool:newsbatch
  5.    echo "Unbatching...."
  6.    copy usr:spool/newsbatch t:
  7.    delete uuspool:newsbatch quiet
  8.    failat 30         ;don't worry if we can't find GetPriority
  9.    getpriority >nil:    ;preserve the current priority in a local variable
  10.    failat 20         ;back to default
  11.    changetaskpri -4     ;postprocessing is a background task
  12.    dannews t:newsbatch STATS DELETE BLIP 1 ;postprocess news to uucp news base
  13.    failat 10            ; because
  14.    get >nil: Priority      ;check that Priority local var. was set
  15.    if not WARN
  16.       changetaskpri $Priority ;re-instate the saved priority
  17.    endif
  18.    echo "Complete."
  19. else
  20.    echo "Sorry, no news unbatched"
  21. endif
  22.  
  23. setenv USERNAME $USER        ; to make sure its set
  24. ActiveD                      ; create a new active file
  25. Delete UULIB:Active quiet    ; Delete old active file
  26. Rename UULIB:newsactive UULIB:Active  ; insert new active file
  27.  
  28. tin.exe             ; start tin itself
  29.  
  30. trimnews
  31.  
  32. UnSetENV TIN_GROUPS           ; this is set by ActiveD for TIN
  33.